home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / INFO.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  622b  |  31 lines
  1. $INCLUDE "GEMDOS.INC"
  2.  
  3. if command$=GemDOS$ then
  4.  call PrepareScreen(10,"Information")
  5. else
  6.  call InitScreen(10,"Information")
  7. end if
  8.  
  9. call BoolGadget(5,26,25,1,"Zurck zu AControl",1)
  10. call Center(9,"AControl - Version 1.0")
  11. call Center(12,"Copyright (C) 1994 by")
  12. call Center(13,"Thomas Dreibholz")
  13. call Center(14,"All rights reserved.")
  14. call Center(20,"Freier Speicher:"+str$(int(fre(-1)/1024))+" KBytes")
  15. call MouseOn
  16.  
  17. ende=0
  18. while ende=0
  19.  call MouseDown
  20.  if mouse.button<>0 then call MouseHandler
  21.  
  22.  if gad.num=1 or gad.num=33333 then
  23.   ende=1
  24.  end if
  25.  
  26.  gad.num=-1
  27. wend
  28.  
  29. call MouseOff
  30. end
  31.